home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 4 / United Public Domain Gold 4.iso / fredfish / ff.0756.dms / ff.0756.adf / KOE2 / UnPackDisk < prev    next >
Text File  |  1992-11-06  |  2KB  |  113 lines
  1. .Key  ""
  2. set src1  "KOE2.lha"
  3. set dst  "KOE-II-VikingsA"
  4.  
  5. echo ""
  6. echo "  This script will unpack the following lha archives:"
  7. echo ""
  8. echo "  $src1 => $dst"
  9. echo ""
  10.  
  11. lab GETDRIVE
  12. echo "  Which drive do you want to unpack to? [0,1,2,3] "  NOLINE
  13. failat 20
  14. skip >NIL: ? 
  15.  
  16. lab 0
  17.   set drive "DF0:"
  18.   skip HAVEDRIVE
  19. ;
  20. lab 1
  21.   set drive "DF1:"
  22.   skip HAVEDRIVE
  23. ;
  24. lab 2
  25.   set drive "DF2:"
  26.   skip HAVEDRIVE
  27. ;
  28. lab 3
  29.   set drive "DF3:"
  30.   skip HAVEDRIVE
  31. ;
  32.  
  33. lab HAVEDRIVE
  34. ask "  Do you have a blank unformatted disk in drive $drive?"
  35. if not WARN
  36.     echo ""
  37.     echo "  Try again when you do ..."
  38.     echo "  All Done.  Click close gadget to get rid of window."
  39.     endcli
  40. endif
  41.  
  42. echo ""
  43. echo "  ==> sys:system/format drive $drive name $dst NOICONS"
  44. sys:system/format drive $drive name $dst NOICONS
  45. echo "  ==> :c/lha -axm x $src1 $dst:"
  46. :c/lha -axm x $src1 $dst:
  47. echo ""
  48. echo "  Installing $drive"
  49. sys:c/install $drive
  50.  
  51. echo "  Copying selected proprietary files from your sys: directory ..."
  52.  
  53.  
  54. if exists sys:c/Assign
  55.     copy sys:c/Assign    $dst:c
  56. endif
  57.  
  58. if exists sys:c/If
  59.     copy sys:c/If        $dst:c
  60. endif
  61.  
  62. if exists sys:c/Else
  63.     copy sys:c/Else        $dst:c
  64. endif
  65.  
  66. if exists sys:c/EndCLI
  67.     copy sys:c/EndCLI    $dst:c
  68. endif
  69.  
  70. if exists sys:c/Mount
  71.     copy sys:c/Mount    $dst:c
  72. endif
  73.  
  74. if exists sys:c/Run
  75.     copy sys:c/Run        $dst:c
  76. endif
  77.  
  78. if exists sys:c/Type
  79.     copy sys:c/Type        $dst:c
  80. endif
  81.  
  82. if exists sys:c/Version
  83.     copy sys:c/Version    $dst:c
  84. endif
  85.  
  86. if exists sys:c/Wait
  87.     copy sys:c/Wait        $dst:c
  88. endif
  89.  
  90.  
  91. if exists sys:l/null-handler
  92.     copy sys:l/null-handler        $dst:l
  93. endif
  94.  
  95.  
  96. if exists sys:libs/icon.library
  97.     copy sys:libs/icon.library    $dst:libs
  98. endif
  99.  
  100. echo "  All Done.  Click close gadget to get rid of window."
  101. endcli
  102.  
  103.  
  104. endskip
  105. echo "  Invalid Drive Selection, Please try again!"
  106. skip back GETDRIVE
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.